#!/usr/bin/perl -w
#svn_irc_bot.pl
 
my $server = "irc.fyrechat.net"; #put here your address
my $port = 6667;
my $nick = "svn_bot";
my $ident = "svn_bot";
my $realname = "svn_bot";
my $chan = "#gogo"; #put here your channel name
my $pass = "svn_bot";
my $svn_commit = $ARGV[0];
use IO::Socket;
 
my $irc=IO::Socket::INET-&gt;new(
PeerAddr=&gt;$server,
PeerPort=&gt;$port,
Proto=&gt;'tcp') or die "DEAD!";
 
#print $irc "USER $ident $ident $ident $ident :$realname\n";
print $irc "NICK $nick\r\n";
#print $irc "PRIVMSG nickserv/@/services.dal.net :identify $pass\n";
print $irc "USER $ident 8 * :Perl IRC Hacks Robot\r\n";
 
print $irc "join $chan\n";
 
while(my $in = &lt;$irc&gt;)
{
if($in=~/004/)
{
print $irc "PRIVMSG $chan :$svn_commit \n";
last;
}
 
if($in=~/^PING(.*)$/i)
{
print $irc "PONG :$1\n";
}
}
close($irc);
